﻿Imports DAO
Imports DTO

Public Class NoCongBUS
    Dim ngon As Integer = NgonNgu.ngon
    Public Function BaoCaoNoCong(ByVal s As String) As DataTable

        Dim dt As New DataTable
        Dim no As New BaoCaoCongNo
        dt = no.BaoCao(s)

        If dt.Rows.Count = 0 Then
            If ngon = 0 Then
                Throw New Exception("Tháng Này không có Khách Hàng Nợ")
            Else
                Throw New Exception("This month there is not Consumer Debt")
            End If
        End If
        Return dt

    End Function
End Class
